home *** CD-ROM | disk | FTP | other *** search
/ 1997 Lingerie - Dream Girls / Megapak 5000 Photos - Disc 6.iso / corpins.mst < prev    next >
Text File  |  1996-11-05  |  6KB  |  240 lines
  1. '**************************************************************************
  2. '*                     Photo Screen Saver Installation
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. CONST APPHELP       = 900
  18. CONST TOOBIG        = 6300
  19. CONST BADPATH       = 6400
  20.  
  21. ''Bitmap ID
  22. CONST LOGO = 1
  23.  
  24. GLOBAL DEST$        ''Default destination directory.
  25. GLOBAL WINDRIVE$    ''Windows drive letter.
  26. GLOBAL WINDIR$      ''Windows directory letter.
  27. GLOBAL NEEDED&          ''Number of bytes still needed.
  28.  
  29. '' List symbol names
  30. GLOBAL EXTRACOSTS$       ''List of extra costs to add per drive
  31. GLOBAL NEEDEDCOSTS$  ''List of costs needed per drive
  32.  
  33. DECLARE SUB MakeInstallList
  34. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  35.  
  36.  
  37. INIT:
  38.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  39.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  40.  
  41.     SetBitmap CUIDLL$, LOGO
  42.     SetTitle "Program Installation"
  43.  
  44.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  45.     IF szInf$ = "" THEN
  46.     szInf$ = GetSymbolValue("STF_CWDDIR") + "CORPINS.INF"
  47.     END IF
  48.     ReadInfFile szInf$
  49.  
  50.     DEST$ = "C:\CDEXPRES"
  51.     WINDIR$ = GetWindowsDir
  52.     WINDRIVE$ = MID$(WINDIR$, 1, 1)
  53.  
  54. '$IFDEF DEBUG
  55.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  56.     IF IsDriveValid(WINDRIVE$) = 0 THEN
  57.     i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  58.     GOTO QUIT
  59.     END IF
  60. '$ENDIF ''DEBUG
  61.  
  62.  
  63. WELCOME:
  64.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  65.     IF sz$ = "CONTINUE" THEN
  66.     UIPop 1
  67.     ELSE
  68.     GOSUB ASKQUIT
  69.     GOTO WELCOME
  70.     END IF
  71.  
  72.  
  73. GETPATH:
  74.     SetSymbolValue "EditTextIn", DEST$
  75.     SetSymbolValue "EditFocus", "END"
  76. GETPATHL1:
  77.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  78.     DEST$ = GetSymbolValue("EditTextOut")
  79.  
  80.     IF sz$ = "CONTINUE" THEN
  81.     IF IsDirWritable(DEST$) = 0 THEN
  82.         GOSUB BADPATH
  83.         GOTO GETPATHL1
  84.     END IF
  85.     UIPop 1
  86.     ELSEIF sz$ = "REACTIVATE" THEN
  87.     GOTO GETPATHL1
  88.     ELSEIF sz$ = "BACK" THEN
  89.     UIPop 1
  90.     GOTO WELCOME
  91.     ELSE
  92.     GOSUB ASKQUIT
  93.     GOTO GETPATH
  94.     END IF
  95.  
  96.     MakeInstallList
  97.  
  98.     IF NEEDED& > 0 THEN
  99.         GOTO TOOBIG
  100.     ELSE
  101.         CopyFilesInCopyList
  102. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  103.                 CreateProgmanItem "CD Express","Lingerie Dreams - CD Required", MakePath(DEST$,"cdexprss.exe"),"", cmoOverwrite
  104.                 CreateProgmanItem "CD Express","Photo Viewer", MakePath(DEST$,"mss.exe"),"", cmoOverwrite
  105.                 CreateProgmanItem "CD Express","Free Photos", MakePath(DEST$,"unlock.exe"),"secur02a.ico", cmoOverwrite
  106.                 CreateProgmanItem "CD Express","Video for Windows - CD Required", MakePath(SRCDIR$,"vfw11e\setup.exe"),"", cmoOverwrite
  107.         
  108.     ini$ = MakePath(WINDIR$, "CONTROL.INI")
  109.     CreateIniKeyValue ini$, "ScreenSaver.photo Screensaver ", "IMAGE DIR", DEST$, cmoNone
  110.     ini$ = MakePath(WINDIR$, "AD_PREFS.INI")
  111.     CreateIniKeyValue ini$, "Photo Screen Saver ", "ImageDir", DEST$, cmoNone
  112. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  113. ini$ = MakePath(WINDIR$, "WIN.INI")
  114.     CreateIniKeyValue ini$, "Multimedia Screensaver ", "Wavefile", MakePath(MID$(SRCDIR$,1,3),"mss.wav"), cmoNone
  115.  
  116.     ENDIF
  117.  
  118.  
  119. QUIT:
  120.     ON ERROR GOTO ERRQUIT
  121.  
  122.     IF ERR = 0 THEN
  123.     dlg% = EXITSUCCESS
  124.     ELSEIF ERR = STFQUIT THEN
  125.     dlg% = EXITQUIT
  126.     ELSE
  127.     dlg% = EXITFAILURE
  128.     END IF
  129. QUITL1:
  130.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  131.     IF sz$ = "REACTIVATE" THEN
  132.     GOTO QUITL1
  133.     END IF
  134.     UIPop 1
  135.  
  136.     END
  137.  
  138. ERRQUIT:
  139.     i% = DoMsgBox("Setup sources were corrupted, call Desktop Software Inc. at 203-741-8535.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  140.     END
  141.  
  142.  
  143.  
  144. BADPATH:
  145.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  146.     IF sz$ = "REACTIVATE" THEN
  147.     GOTO BADPATH
  148.     END IF
  149.     UIPop 1
  150.     RETURN
  151.  
  152.  
  153.  
  154. ASKQUIT:
  155.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  156.  
  157.     IF sz$ = "EXIT" THEN
  158.     UIPopAll
  159.     ERROR STFQUIT
  160.     ELSEIF sz$ = "REACTIVATE" THEN
  161.     GOTO ASKQUIT
  162.     ELSE
  163.     UIPop 1
  164.     END IF
  165.     RETURN
  166.  
  167.  
  168. TOOBIG:
  169.     sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
  170.     IF sz$ = "REACTIVATE" THEN
  171.     GOTO TOOBIG
  172.     END IF
  173.     UIPop 1
  174.     RETURN
  175.  
  176.  
  177.  
  178. '**
  179. '** Purpose:
  180. '**     Builds the copy list and performs all installation operations.
  181. '** Arguments:
  182. '**     none.
  183. '** Returns:
  184. '**     none.
  185. '*************************************************************************
  186. SUB MakeInstallList STATIC
  187.  
  188.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  189.     CreateDir DEST$, cmoNone
  190.  
  191. '' Corporate Screensaver Files
  192.     AddSectionFilesToCopyList "FILES", SrcDir$, DEST$
  193.  
  194.  
  195. '' Windows 3.1 screen saver files
  196.     AddSectionFilesToCopyList "WINSAVER", SrcDir$, WINDIR$
  197.  
  198. '' Images
  199.     AddSectionFilesToCopyList "IMAGES", SrcDir$, DEST$
  200.  
  201. '' Check enough disk space.
  202.     EXTRACOSTS$ = "ExtraCosts"
  203.     NEEDEDCOSTS$ = "NeededCosts"
  204.     FOR i% = 1 TO 26 STEP 1
  205.     AddListItem EXTRACOSTS$, "0"
  206.     AddListItem NEEDEDCOSTS$, "0"
  207.     NEXT i%
  208.     ''Add extra cost to Windows drive for ini/progman, etc.
  209.     ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
  210.     ReplaceListItem EXTRACOSTS$, ndrive%, "10240"
  211.  
  212.     NEEDED& = GetCopyListCost(EXTRACOSTS$,NEEDEDCOSTS$,"")
  213.  
  214. END SUB
  215.  
  216.  
  217.  
  218. '**
  219. '** Purpose:
  220. '**     Appends a file name to the end of a directory path,
  221. '**     inserting a backslash character as needed.
  222. '** Arguments:
  223. '**     szDir$  - full directory path (with optional ending "\")
  224. '**     szFile$ - filename to append to directory
  225. '** Returns:
  226. '**     Resulting fully qualified path name.
  227. '*************************************************************************
  228. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  229.     IF szDir$ = "" THEN
  230.     MakePath = szFile$
  231.     ELSEIF szFile$ = "" THEN
  232.     MakePath = szDir$
  233.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  234.     MakePath = szDir$ + szFile$
  235.     ELSE
  236.     MakePath = szDir$ + "\" + szFile$
  237.     END IF
  238. END FUNCTION
  239.  
  240.